#!/usr/bin/perl

use strict;
use Define;

my($esp);

$esp = Define::String($esp, "Me la quiero Brianna.\n", 'foo');
print Define::pull($esp, 'foo');

my($foo) = { amor => ( 0 => 'Me la ', 1 => 'amo ', 2 => 'Brianna.', ), };
print $foo->{amor}->[0].$foo->{amor}->[1].$foo->{amor}->[2]."\n";
